home *** CD-ROM | disk | FTP | other *** search
/ Cherry Poppers 12: Playing Nookie / Cherry Poppers 12: Playing Nookie.iso / pc / install.inf < prev    next >
Text File  |  1990-06-06  |  4KB  |  124 lines
  1. ;;**************************************************
  2. ;; Install of the software for dos/win
  3. ;;**************************************************
  4.  
  5. DefineVariables
  6.   Text    [LogoBitMap]  := city.bmp
  7.   Text    [CompanyName] := City Lights Entertainment
  8.   Text    [ProductName] := Cherry Poppers 12
  9.   Text    [ProductName5] := Install QuickTime
  10.   Text    [ProductName3] := Uninstall QuickTime
  11.   Text    [ProductName4] := Erotica On-Line View & Talk to Sexy Girls
  12.   Text    [ProductName6] := Read Me    
  13.   Text    [ReadFile]    := readme.wri             
  14.   Text    [ReadCmdLine]
  15.   Text    [IconFile]    := cp.ico
  16.   Text    [IconFile3]    := unqt.ico
  17.   Text    [IconFile5]    := suqt.ico  
  18.   Text    [IconFile4]         := erol.ico 
  19.   Text    [IconPath]
  20.   Text    [IconPath2]
  21.   Text    [IconPath3]
  22.   Text    [IconPath4]
  23.   Text    [IconPath5]
  24.   Text    [ReadPath]
  25.   Text    [ProgFile]    := cp12.exe
  26.   Text    [ProgPath]
  27.   Text    [CDDr]
  28.  
  29. EndDefineVariables
  30.  
  31.  
  32. ;; Setup logo and screen
  33. SetDefaultBitmap off
  34. LoadBitMap 1 [LogoBitMap]
  35. ShowBitMap 1 @xy(5,5)
  36. SetBackgroundColor 0 0 64 191 64 0
  37. ShowWindow Maximized
  38.  
  39. Dialog
  40.   Wait one moment please for the [ProductName] installation...
  41.  
  42.   We offer you the choice to (un)install QuickTime separately. 
  43.   An icon for (un)installing QuickTime will be created in the 
  44.   [CompanyName] program group.  
  45. EndDialog
  46.  
  47. ;;************************************************
  48. ;;  this is where we setup the directory for the 
  49. ;; installation of the software.  We install into the 
  50. ;; bootdrive:\Qtime directory.  This is hard coded
  51. ;; and must be named this for the Windows application 
  52. ;; to read properly.
  53. ;;************************************************
  54. ;;[InstallationDirectory] := [BootDrive]:\QTW
  55. ;;CreateDirectoryIfNecessary [InstallationDirectory]
  56. ;;QueAllFiles
  57. ;;GetQuedFiles
  58.  
  59. ;;**************************************************
  60. ;;Find the files for the program and icons
  61. ;;**************************************************
  62. [IconPath] := FullPathTo [IconFile] Search AllFixed
  63. [IconPath3] := FullPathTo [IconFile3] Search AllFixed
  64. [IconPath5] := FullPathTo [IconFile5] Search AllFixed
  65. [IconPath4] := FullPathTo [IconFile4] Search AllFixed
  66. [ProgPath]  := FullPathTo [ProgFile] Search AllFixed
  67. [CDDr]    := SubstringOf [IconPath] from 1 to 1
  68. [ReadPath]  := FullPathTo [ReadFile] Search AllFixed
  69. [ReadCmdLine]    := write.exe [ReadPath]
  70.  
  71. ;;**************************************************
  72. ;; Create the windows program group.
  73. ;;**************************************************
  74. ProgramManagerDDe
  75.   CreateGroup([CompanyName])
  76.   ReplaceItem([CompanyName])
  77.   AddItem([ProgPath],[ProductName],[IconPath])
  78.   AddItem([CDDr]:\BIN\INSTLQT.EXE,[ProductName5],[IconPath5])
  79.   AddItem([CDDr]:\BIN\BIN\UNSTLQT.EXE,[ProductName3],[IconPath3])
  80.   AddItem([ReadCmdLine],[ProductName6],[IconPath2])
  81.   AddItem([CDDr]:\CROWN\SETUP.EXE,[ProductName4],[IconPath4])
  82. EndProgramManagerDDE
  83.  
  84.  
  85. ;;**************************************************
  86. ;; Here is where we modify the Autoexec file for the
  87. ;; file paths
  88. ;;**************************************************
  89. ModifyAutoExecBat
  90.   AddPathComponent [BootDrive]:\QTW at beginning  
  91. EndModifyAutoExecBat 
  92.  
  93.  
  94. ;; Exit dialog box and messages
  95. Dialog
  96.   [ProductName] installation is complete.
  97.  
  98.   Additional information is being provided to you in the "[ProductName6]" file.
  99.  
  100.   Enjoy!
  101. EndDialog
  102.  
  103. Procedure DDENonFatalErrorTrap
  104. ;; Purpose of DDENonFatalErrorTrap:
  105. ;; If a procedure with this name is present in the script and a non-fatal
  106. ;; Program Manager DDE error occurs, then this procedure will be executed.
  107. ;; 
  108. ;; Possible Text Error Codes Are:
  109. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  110. ;;      ddeInitiate failed
  111. ;;      pmAddItem failed
  112. ;;      pmClose failed
  113. ;;      pmCreateGroup failed
  114. ;;
  115. ;; To trap a DDENonFatalError and respond to it, use the following code
  116. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  117. ;; If [Number1] > 0 
  118. ;;    Dialog
  119. ;;      NonFatal error in AddItem occurred
  120. ;;      Error Text : DDENonFatalError
  121. ;;    EndDialog
  122. EndProcedure
  123.  
  124. EndScript